home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / qmdmpcbb.arc / AUTO.SCR next >
Encoding:
Text File  |  1987-02-23  |  4.3 KB  |  144 lines
  1. WAITUNTIL 00:32:00
  2. REDO:
  3. TIMEOUT 8 START
  4. SETCOMM F
  5. HANGUP
  6. WAITFOR "!@#"
  7. START:
  8. TIMEOUT 48 REDO
  9. SEND    "ATDT9565777{"  ;Local TeleNet Phone Number
  10. WAITFOR "1200"
  11. SEND    "~{D{"
  12. WAITFOR "="
  13. SEND    "~D1{"
  14. WAITFOR "@"
  15. TIMEOUT 8 RSTZ
  16. AREA:
  17. SEND    "C DIAL612/12,USERID,PASSWORD{"
  18. WAITFOR "@"
  19. GOTO    AREA
  20. RSTZ:
  21. TIMEOUT 8 REDO
  22. SEND    "ATZ{"
  23. WAITFOR "OK"
  24. SEND    "~ATX1S11=55{"
  25. WAITFOR "OK"
  26. SEND    "~{@{"
  27. WAITFOR "@"
  28. SEND    "SET? 1:0,4:2,7:8{"
  29. WAITFOR "@"
  30. SEND    "CONT{~"
  31. TIMEOUT 48 CALL
  32. CALL:
  33. SEND    "ATDT8248167{"  ;The Forbin Project PCBB System
  34. WAITFOR "1200"
  35. ;
  36. TIMEOUT 16 USER
  37. WAITFOR "=no?"
  38. SEND    "Y;Q{"
  39. WAITFOR "?"
  40. USER:
  41. SEND    "FIRSTNAME;LASTNAME;PASSWORD{"
  42. CAPTURE D:\SESSION.LOG
  43. TIMEOUT 24 NEXT
  44. WAITFOR "?"
  45. NEXT:
  46. TIMEOUT 16 NEXT
  47. SEND    "{"
  48. WAITFOR "Command?"
  49. ;
  50. TIMEOUT 16 POST
  51. SEND    "~{"
  52. WAITFOR "Command?"
  53. SEND    "U QMDMPCBB.ARC Y{"
  54. WAITFOR "---]"
  55. SEND    "* Qmodem/PCBB  Timed Execution Script.  {"
  56. WAITFOR "Abort."
  57. UPLOAD  C:\LIB\QMDMPCBB.ARC 6
  58. ;
  59. POST:
  60. TIMEOUT 16 DOWN
  61. SEND    "~{"
  62. WAITFOR "Command?"
  63. SEND    'E{'
  64. WAITFOR '?'
  65. SEND    '{'
  66. WAITFOR '?'
  67. SEND    'QMODEM - PCBB SCRIPT{'
  68. WAITFOR '?'
  69. SEND    '{'
  70. WAITFOR '1:'
  71. SEND '╔═════════════════════════════════════════════════════════════════════╗{~'
  72. SEND '║                                                                     ║{~'
  73. SEND '║         File QMDMPCBB.ARC is a timed-execution script that          ║{~'
  74. SEND '║         performs the following functions:                           ║{~'
  75. SEND '║                                                                     ║{~'
  76. SEND '║             ■  Connect with local PCPursuit TeleNet;                ║{~'
  77. SEND '║             ■  Request link to area 612 Minneapolis;                ║{~'
  78. SEND '║             ■  AutoDial and LogOn to Forbin Project;                ║{~'
  79. SEND '║             ■  Upload QMDMPCBB.ARC and Post Message;                ║{~'
  80. SEND '║             ■  DownLoad File QFONE223.ARC Ymodem and                ║{~'
  81. SEND '║             ■  Send (Chat) Message to SysOp J. Friel.               ║{~'
  82. SEND '║                                                                     ║{~'
  83. SEND '║         If you get this Message then the Script works... !          ║{~'
  84. SEND '║                                                                     ║{~'
  85. SEND '║                                                                     ║{~'
  86. SEND '╚═════════════════════════════════════════════════════════════════════╝{~'
  87. TIMEOUT 80 DOWN
  88. WAITFOR '17:'
  89. SEND    '{'
  90. TIMEOUT 16 DOWN
  91. WAITFOR '?'
  92. SEND    'S{'
  93. ;
  94. DOWN:
  95. TIMEOUT 16 CHAT
  96. SEND    "~{"
  97. WAITFOR "Command?"
  98. SEND    "D QFONE223.ARC Y{"
  99. WAITFOR "Abort."
  100. DOWNLOAD C:\WRK\QFONE223.ARC 6
  101. ;
  102. CHAT:
  103. TIMEOUT 16 OVER
  104. SEND    "~{"
  105. WAITFOR "Command?"
  106. SEND    'C{'
  107. WAITFOR '?'
  108. SEND    'Y{'
  109. WAITFOR '1:'
  110. SEND '╔═════════════════════════════════════════════════════════════════════╗{~'
  111. SEND '║                                                                     ║{~'
  112. SEND '║                                                                     ║{~'
  113. SEND '║        Greetings from FogTown and thanks for the file, John.        ║{~'
  114. SEND '║                                                                     ║{~'
  115. SEND '║         This Qmodem - PCBB session has been automated by the        ║{~'
  116. SEND '║         script archived in file QMDMPCBB.ARC, which was sent        ║{~'
  117. SEND '║         to The Forbin Project prior to posting this message.        ║{~'
  118. SEND '║                                                                     ║{~'
  119. SEND '║         We have enjoyed exploring Qmodem Script Language and        ║{~'
  120. SEND '║         hope that this timed-execution example is useful.           ║{~'
  121. SEND '║                                                                     ║{~'
  122. SEND '║                                              Best regards,          ║{~'
  123. SEND '║                                                    Steve            ║{~'
  124. SEND '║                                                                     ║{~'
  125. SEND '╚═════════════════════════════════════════════════════════════════════╝{~'
  126. TIMEOUT 80 OVER
  127. WAITFOR '17:'
  128. SEND    '{'
  129. TIMEOUT 16 OVER
  130. WAITFOR '?'
  131. SEND    'S{'
  132. HALT:
  133. ;
  134. OVER:
  135. TIMEOUT 8 DONE
  136. SEND    "~{"
  137. WAITFOR "Command?"
  138. SEND    "G{"
  139. WAITFOR "..."
  140. DONE:
  141. HANGUP
  142. TURNOFF CAPTURE
  143. RETURN
  144.